← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:04 2022

Filename(eval 421)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 17 statements in 229µs
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11117µs82µsType::Tiny::::__ANON__[:16]Type::Tiny::__ANON__[:16]
1115µs16µsType::Tiny::::BEGIN@16.323Type::Tiny::BEGIN@16.323
1115µs5µsType::Tiny::::BEGIN@9.322Type::Tiny::BEGIN@9.322
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
221µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
310s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4 package Type::Tiny;
5
# spent 82µs (17+65) within Type::Tiny::__ANON__[(eval 421)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] which was called: # once (17µs+65µs) by JSON::Schema::Modern::add_vocabulary at line 177 of Sub/Defer.pm
$$_UNQUOTED = sub {
6 ($_QUOTED,$_UNQUOTED) if 0;
7# BEGIN quote_sub PRELUDE
8package Type::Tiny;
9
# spent 5µs within Type::Tiny::BEGIN@9.322 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 14
BEGIN {
1010s $^H = 1762;
1111µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1212µs %^H = (
13 );
14146µs15µs}
# spent 5µs making 1 call to Type::Tiny::BEGIN@9.322
15# END quote_sub PRELUDE
1610176µs592µs
# spent 16µs (5+11) within Type::Tiny::BEGIN@16.323 which was called: # once (5µs+11µs) by Sub::Quote::_clean_eval at line 16
do { no warnings "void"; package Type::Tiny; (((do { package Type::Tiny; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }) && (do { local $_ = $_[0]; my $uri = Mojo::URL->new($_); $uri->is_abs && !defined $uri->fragment }))) or Type::Tiny::_failed_check(82, "__ANON__", $_[0], ); $_[0] }; };
# spent 59µs making 1 call to Mojo::URL::new # spent 16µs making 1 call to Type::Tiny::BEGIN@16.323 # spent 11µs making 1 call to warnings::unimport # spent 5µs making 1 call to Mojo::URL::is_abs # spent 1µs making 1 call to Mojo::URL::fragment
17}
1813µs1;
19
20;